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AMIGOS DEL 

MSX 


Todos los meses, con la revista, pretendemos que 
sea una guía práctica, incluyendo gran variedad de 
programas para que puedas disfrutar mientras 
aprendes. 

Encontrarás programas que te mostrarán cómo 
construir imágenes de cualquier forma y a la vez 
utilizar el color. 

También verás cómo se usan los sprites y a diseñar 
tus propios caracteres. 

Otros programas te mostrarán cómo aplicar 
gráficos de alta resolución, a producir efectos 
sonoros y música. 

Diviértete. 
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GENERADOR DE 

SPRITES 




J 00 J 
1002 

1003 

1004 

1005 
toiq 
1020 
1030 
1040 
1050 
1060 
1070 
1030 
1090 
1 100 

uno 
1120 
1130 
1140 
1150 
1160 
1 170 


************************ 
$ ♦ 

* RFNFRAROR DF SPRITFS * 

* * 
************************ 


7. PINTAR X. BORRAR 

RPAHF. PUNTO CURSORES. CONTROL. 
V. MUFSTRAS (R>,A< ,RFTURN. FIN) 
O. DATAS OFI. SPRITF EN CÍJRSO 
R - RL)N c. CLS 

M. METE EN MEMORIA Y ORARA 
F. FSPF.JO 

I. INTRODUCE SPRITE EN CURSO 


POKF?*HFCAR ,) sCLEAR 3000,51000! : DIM G$ (2' 
ON ERROR ROTO 2030i 
SCRFFN ) ,1 ,0 :KEYOFF i 
COLOR 1,4,4 


55) 
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1190 INPUT "1. 9x8 2. 16x16 . ,.";M 


1200 DIM G(M*8,M*8) 

1210 FOR X=1 TO M*8sF0R Y=1 TO M*8 

1220 VPORF 81 92,?<B1 1110011 

07 § 

/?//! 
1 DYU-y 


1230 LOCATE Y,X SPRINT" •" :G ( X,Y)=0 

1240 NEXT Y:NFXT X 

1250 X=l:Y=t;M0=0 

1260 GOSUB 1540 

1270 GOSUB 1660 

(.i~. f .j~ t.r .p.j 

.í 1.1.V"-*!-. | 

1.f- r t t. 1 .i 

|.t;.. 


|. 1 , j. L1 

|.i. i i. | 

1280 IF A*="I" THFN GOSUB 1750 

1290 IF A*="C" THEN 1210 

1300 IF AS=“R" THFN FRASE G.-GOTO 1160 

1310 IF A*="D" THEN 1880 

1320 IF A*="E" THEN GOSUB 1940 

|. i . T"i .;.| 


i T 

i-. \ . 

1330 IF A$="V" THEN GOSUB 1360 

1340 IF A*="M" THEN GOSUB 1440 

1350 GOTO 1260 

1360 B*=INkFY*;IF B*="" THEN 1360 

1370 IF B*="Q" THEN S=S+1:IF S>255 THEN < 

3=0 


[. "7 .. r ..| 

|. 1 .•H ••••. 

1380 IF B*="A" THEN S=S-lsIF SCO THEN S=255 

1390 LOCATE 19,0sPRINT"SP";S ;" i » 

1400 SPRITE*(0>=G*(S) 

1410 PUT SPRITE 0,(175,30),1,0 

1420 IF B*=CHR*(13) THEN RETURN 




1440 GGSUB 1530 :1NPIJT "DIRECCION COMIENZO:";DC;DF=DC 


1450 GOSUB 1530 


>: INPUT "SPRITE INICIAL:";SI 
1460 GOSUB 1530: INPUT "SPRITE FINAL s ";SF 

1470 F0R Z=SI T0 SF:F0R L=1 T0 (8 AND M=l)+(32 AND M=2):P0KE DF,ASC(MID*<G$ 
, 1)):DF=DF+1 

1480 NEXT LsNEXT ZsGOSUB 1530sPRINT"DIRECCI0N FINAL";DF 
1490 PRINT "LO GRABAS (S/N)" 

1500 IF INKEY*="S" THEN BEEP.-BSAVE "cas :GRP",DC,DF:G0T0 1530 
1510 IFINKEY*="N" THEN GOTO 1530 


(Z) ,L 


1520 GOTO 1500 
1530 FOR A=18 TO 21sLOCATE 0,AsPRINT 
E 0,18:RETURN 
1540 D=STICK(0> 

1550 IF D=8 OR D=1 OR D=2 THEN X«X-1 

1560 IF D=6 OR D=5 OR D=4 THEN X=X+1 

1570 IF D=2 OR D=3 OR D=4 THEN Y=Y + 1 

1580 IF D=8 OR D=7 OR D=6 THEN Y=Y-1 

1590 IF M=2 THEN 1630 

1600 IF X>8 THEN X=8 

1610 IF Y>8 THEN Y=8 

1620 RETURN 

1630 IF X>16 THEN X=16 
1640 IF Y>16 THEN Y = 16 
1650 RETURN 


1660 LOCATE Y,XsPRINT"0" 
1670 AS=INKEY* 

1680 IF A*="Z" THEN M0=1 
1690 IF A*="X” THEN M0=0 
1700 D=STRIG(O) 


1710 IF D=—1 THEN G(X,Y)=MO 
1720 LOCATE Y,X:IF G(X,Y)-0 THEN PRINT"» 
1730 IF G<X,Y)=1 THEN PRINT"O" 

1740 RETURN 



1750 LOCATE 0,18:INPUT "SPRITE (0-255) :'*• ;S :S*="" zLOCATE 0,1B:PRINT" 

II _ 


1760 FOR B=1 TO M*8 STEP 8 
1770 FOR A=1 TO M*8 STEP 8 
1780 FOR X=A TO A+7¡V=0;C=7 


a 


« a 
□ ara 


y a 

D S 


feis'o; 'WW'hl'm 

■‘r&'iil * (li'oít tov'hsx 

; Wiiií&tfy'kfaii 

1986 ■ AMIGOS DEL MSX 


; ,:<l.. 


tes 


5 T.i 


1 




















































































































4.1 


1790 FOR Y=B TO B+7 : V=V+G (X , Y) *2''-<C> :C=C-1 
1800 NEX.T Y :S*=S*+CHR* (V) 

1810 NEXT XsNEXT AsNEXT B 
1820 G$(S)=S$ 

1830SPRITE*(O)=S$ 

1840 LOCATE 19,0 s PRINT"SP "5 S 5 " 

1850 PUT SPRITE 0,(175,30) , 1 ,0 
1860 X=1:Y=1 
1870 RETURN 

1880 LOCATE 0,18:INPUT!"SPRITE:" ;S¡SCREEN O 
1890 A*=STR$(S)¡PRINT9000+S;"DATA 
1900 V=(8 AND M=1)+(32 AND M=2) 

1910 FOR A=1 TO V 

1920 V$=STR$(ASC(MID$(S*,A,1) ) ) :PRINT MID* (V* ,2,5) ; : IF AOV THEN PRINT" , " ; 

1930 NEXT AsEND 
1940A=M*8 
1950 FOR L=1 TO A:FOR Z=1 TO A/2 
1960 C=G(L,Z>:G(L,Z)=G(L,A+1-Z):G(L,A+1-Z)=C 
1970 NEXT Z :FOR Z=1 TO A:LOCATE Z,L 
1980 IF G (L , Z) =0 THEN PRINT" *" ELSE PRINT"*!" 

1990 NEXT Z 
2000 NEXT L 
2010 RETURN 

2020 FOR N=0 TO 32*1¡VPOKE 14336+N,PEEK(53100!+N):NEXTN 

2030 BEEP:SCREEN O ¡PRINT"ERROR..:IF ERR=5 THEN PRINT:PRINT"DEFINE PRIMERO EL S 


PRITE. . 


E INTRODUCELO EN UNA MUESTRA." 


2040 FOR A=1 TO 2000:NEXT A:ERASE G¡RESUME 1190 


-4—i 


¿¿i ZM 




.!. ¥~ 


. 
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EDITOR DE 


4 . 


1. 

m i 

¡ 



"!. 

.L!-j - 

1 . 
i ¡ i 

.r~. 
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da 






J— —t 


CARACTERES 


!•. 

4 


1.í. 


.I. 


J O 
11 ' 

12 ' 

14 ' 

15 ' 
20 ' 
30 ' 
40 ' 


n 




* EDITOR DE CARACTERES * 

* . ; * 

************************ 


±f 


50 DEEINT A-7 sCLEAR 500,55890 ! sK'EYOEF :SCREEN 1,0,0:C0L0R I.IO.IOiCLS 

’ 129 ’ 129 ’ 129 » 129 ’ 255 *255,255,255,255,255,255,255,255 
70 REST0RE60 sF0RA=2024T02039 :READB :VPOKEA ,B:NEXTA 
80 VP0KE8223,31;LOCATE,,0 
90 DIMG(8,8),H(8,8):G0SUB400 

100 LOCATE,,0 sF0RX=lT08!F0RY=1T08:G(X,Y)=0:H(X,Y)=0:NEXTY:NEXTX 
110 G0SUB380 
120 X=1:Y=1:P=0 
130 D=STICK(O) 

140 IFD=10RD=80RD=2THENX=X-1:IFX<1THENX=1 
150 IFD=40RD=50RD=6THENX=X+1: IFX>8THENX=8 
160 IFD=20RD=30RD=4THENY=Y+1jIFY>8THENY=8 
170 IFD=80RD=70RD=6THENY=Y-1:IFY<1THENY=1 
180 LOCATEY,X,1 
190 IFSTRIG(O)=-1THENG(X,Y)=P 

200 T$=INKEY*:IET$='‘"THENF0RA=lT030sNEXTA ELSE LOCATE,,0:G0SUB230 
210 LOCATE,,0:LOCATEY,XsPRINTCHR*(253+G<X,Y)): 

220 GOTO 130 

230 POKE&HFCAB,0:IFT$="Z"THENP=1 
240 IFT$="X"THENP=0 

0KEA I B/4 = NEXTA E BEEP P ! IFVPEEK <385)=136THENF0RA=384T0727:B=VPEEK<A)0R2*VPEEK(A) sVP 
260 ÍFT*="C"THENBEEP:G0T0100 




.I...i 


i.ir 



14 

i: ..r 


- - 


-f- 


T 


■ h 


i -i 




4-á.: 


G0SUB460:GOSUB 
UB480:G0SUB440 

i-i inc.noi:cr:DUBUB31U 
E " THENBEEP !G0SUB. e ¡70 -rffp 

IFT*=" 

IFT$=" 


J.i 

I 


300 IFT$="E"THENBEEPt G0BUB570: BEEP 
310 IET*="W"THENBEEP:G0SUB590 sBEEP 
320 IFT*="Q"THENBEEPsG0SUB610:BEEP 
330 IFT$="R"THENBEEP:G0SUB640:BEEP 
340 IFT*="V"THENBEEP SG0SUB690 sBEEP 


:G0SUB440 


t 


i. 


.j.«i 


"i. 


■ : 
f.T.: 

.¡.i 

í™ 

.. 

. ; .... 








-~~Ut .j 


.r 


f 


u.L. 


-j. ii-i., 
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350 IFT*="S"THENBEEPsG0SUB850 s BEEP 
360 IFT$="L"THENBEEPsG0SUB960:BEEP 
370 POKE&HFCAB,255:RETURN 
380 :'** SACA CELDILLA *# 

390 F0RA=1T08 sF0RB=lT08 sLOCATEB,A sPRINTCHRÍ(253+G(A,B)) ;sNEXTBsNEXTAsRETURN 
400 '** MUESTRA ** 

410 C=40:FORA=1T09 :FORB=1T024 sLOCATEB+1,A+9 

420 IFC<>127THENPRINTCHR$(C); 

430 C=C+1sNEXTBsNEXTAsRETURN 
440 '** BORRA INPUT ** 

450 F0RA=20T023:L0CATE0,A SPRINT" " ; sNEXTA sLOCATEl,21: 

RETURN 

460 '*.* METE CARACTER ** 

470 D=C*8sF0RA=lT08sV=0 sF0RB=lT08sV=V+2'' <8-B)*G(A,B> sNEXTB:VPOKED,V:D=D+1sNEXTA s 
RETURN 

480 '** SACA CARACTER ** 

490 D=C*8sF0RA=lT08sV=VPEEK<D)sF0RB=lT08sW=VAND(2~ ( 8-B)):IFW=2~(8-B)THENG<A,B)=1 
ELSE G(A,B> =0 

500 NEXTB sD=D+l sNEXTA sG0SUB380 a-RETURN 
510 '** PIZARRA ** 

520 TE=0 sF0RA=lT08 sLOCATElO,A sPRINT" ;sftXTAsLOCATElO,1,1 

530 T$=INKEY$ sIFT*<>""THENTE=ASC <T*) 

540 IFTE=27THENBEEPs RETURN 
550 PRINTTÍ; 

560 GOTO 530 

570 '** ESPEJO HOPZ. ** 

580 FORA= 1T08 sFP- ' \1T04 sSWAPG <A ,B) ,6<A,9-B) sftCXTBsfgXTftSBOTP3B O 
590 ' ** ESPEJO. V í- . ** 

600 F0RA=1T04. r 1 - 1T08sSWAPG(9-A.B),6(A,B>sFCXTB:>CXTASGOT O 390 

610 '** TNVERTIR ** 

620 F0RA=1T08 SF0RB=1T08 sIFG(A,B)=1~HENG(A,B)=0 ELSE G(A,B)=1 
630 NEXTBsNEXTASG0T0380 
640 '** ROTAR ** 

650 F0RA=1T08 sF0RB=lT08 

660 H(B,9-A)=G<A,B) sNEXTBsNEXTA 

670 FORA=lT08sF0RB=lTO8sGÍA,B)=H<A,B> sNEXTBsNEXTA 
680 GOTO 380 
690 '** COLORES ** 

700 G0SUB440SPRINT" ** CAMBIO DE COLORESs **" 

710 FORA=1T08s LOCATE10,A s PRINT" 

720 TI=1sPA=10sHL=12 
730 D=STICK(O) 


" ; sNEXTA 


740 IFD=1THENHL=HL-1sIFHL<0THENHL=0 
750 IFD=5THENHL=HL+1sIFHL>31THENHL=31 
760 íFD=7THENTI=TI+1sIFTI>15THENTI=0 
770 IFD=3THENPA=PA+1sIFPA>15THENPA=0 


780 LOCATE 10,1sPRINT"HL s 
790 LOCATE 10,3sPRINT"TI 


" ;HL 
" ;TI 




000 LOCATE 10,5 s PRINT"PA s" ; PA 
810 VA=VPEEK(8192+HL)sVPOKE(8192+HL),0sF0RA=lT020sNEXTAsVPOKE(8192+HL),VAsFORA=l 
TOSOsNEXTA 

820 IFINKEY*=CHR*(27)THENG0T0440 
830 IFSTRIG(O)=-lTHENVP0KE8192+HL,PA+TI*16sBEEP 
840 GOTO 730 
850 '** SAVE ** 

860 G0SUB440SPRINT"GUARDANDO EN MEMORIA..." 

870 DATA1,0,8,17,0,0,33,88,218,205,92,0 
880 DATA1,32,0,17,0,32,33,88,226,205,92,0,201 
890 F0RA=*0T02047 sPOKEA+55896 ! ,VPEEK(A> sNEXTA 
900 F0RA=0T031sPdKEA+57944!,VPEEK(A+8192)sNEXTA 
910 REST0RE870s F0RA=57976!T058000! s READB s POKEA,B s NE X TA 
920 G0SUB440sINPUT"NOMBREs";N* sIFN*=""THEN950 
930 N*="CASs"+N*sN$=MID*(N*,l,10) 

940 BSAVE N*, 55896!,58000!,57976! 
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950 60SUB440:RETURN 
960 '** LOAD ** 

970 BOSUB 440 SPRINT"CARSANDO..."sBLOAD "CAS i "jR 
980 60SUB440: RETURN 
990 '■ t 

1000 ' 

1010 'M] 

1020 
1030 
1040 
1050 
1060 


1070 

1080 


'** DATOS RUTINA ***t*tt*t 

' 58000 - SPRITES 

' 57976 -RUT1 TIPOS 

' 57988 -RUT2 COLOR 

' 57944 - 57975 COLORES 
' 55896 - 57943 TIPOS 
’****** mmtttmmmt 




H—f- 






DIBUJO 



Í********* 

* DIBUJO * 


********** ■ ■ 


B B 


1000 ' 

1001 ' 

1002 ' 

1003 ' 

1004 ' 

icio : 

1020 ' 

1030 r ' 

1040 ' 

1050 ' 

1060 OLEAR 500,49100 ! :POKE&HFCAB ,255 :G0SUB 1650 sDEFINTA-Z 

1070 KEYOFF : COLOR 1,15,15 sSCREEN O:INPUT"TINTA:";T:PRINT :INPUT "PAPELs"?PSPRINT: 
INPUT "BORDER:";B 
1080 SCREEN 2,0,0 
1090 COLOR T,P,B sCLS 
1100 OREN “GRP:" AS#1 
1110 DEFUSR1=49150!:DEFUSR2=49175! 

1120 DATA 16,16,16,238,16,16,16,0 

1130 RESTORE 1120 sFQRA=l4336T014343 sREADC sVPOKEA,C sNEXTA 
1140 B0=0:X=127:Y=80:XB=X:YB=Y:PA=1 
1150 D=STICK(O) 

1160 IFD=10RD=20RD=8THENY=Y-PA:IFY<0THENY=0 




>'■ 
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1170 IFD=40RD=50RD=6THENY=Y+PA:IFY >191THENY=191 
1180 IFD=20RD=30RD=4THENX=X+PA : IFX>255THENX=255 
1190 IFD=80RD=70RD=6THENX=X-PA:IFX<0THENX=0 
1200 PUTSPRITEO,<X-3, Y-4) ,T,0 

1210 IFSTRIG <0)=-lTHENIFBO=OTHENPSET(X , Y) ,T sXB=X : YB=Y ELSE PRESET(X,Y),T:XB=X:YB 
= Y 

1220 T$=INKEY*:IFT$<>""THENGOSUB1240 
1230 BOTO 1150 
1240 TE=ASC(T*) 

1250 IFTE=24THENIFPA=BTHENPA=1ELSEPA=8 


I FT $= 
IFT$= 
IFT*= 

"V'THENA: 
M Z "THENA : 
"N"THENA: 

=USR1(0) s 
=USR1(0)s 
=USR1(0) s 

LINE<XB, 
¡LINE (XB, 
LINE <XB, 

YB)-(X , Y) 
YB) - (X , Y ] 
YB)-(X,Y) 

1 ,T 

> ,T s XB=X : YB=Y 
!,T,B:XB=X:YB=Y 

IFT*= 

"C’THENA: 

=USR1(0): 

LINE(XB, 

YB)-(X,Y 3 

•,T,BF:XB=XsYB=Y 

IFT$= 

"F n THENA : 

=USR1(0) : 

PAINTCX, 

Y) ,T,T 

i r i ] | 1.i..f 


1310 IFT$=" = "THENT=T+1sIFT >15THENT=0 
1320 IFT*="-"THENT=T-1sIFT<OTHENT=15 

1330 IFT$="="ORT$-"-"THENA=USRl (O) rPRESET <160,180) :PRINT#1 , "COLOR : " ;T :LINE (20, 
180)-<140,187) ,T,BF:BEEP s BEEP:FORA=1T0350:NE X TA:A=USR2(O) 

1340 XFTE=8THENBEEP:A=USR2(O) 

1350 ÍFT$—“B"THENSQSUB1460:CIRCLE(X,Y> ,C,T 

1360 IFT$="A"THENGOSUB1460 

1370 IFT$="S"THENBOSUB1460 

1380 IFT$="L"THENBOSUB1460 

1390 IFT$="1"THENB0=0 

1400 IFT$="2"THENB0=1 

1410 IFT$= " 3" THENBO= 1 : T=P 

1420 IFT$="5"THENCLS 

1430 IFTÍ="6"THENRUN 

1440 IFT$= " 7 "THENGOSUB1530 

1450 RETURN 

1460 A=USR1(O)sSCREEN OsCOLOR 1,15,15 
1470 IFT$="B"THENlÑPÜT"RADIO s " sC 
1480 IFT*= "A" THENINPUT"PASO:";PA 

1490 IFT*="S"THENINPUT"SAVE, NOMBRE;N$GASs"+N$.-BSAVE **,49175!,61498' 

1500 IFT*= » L"THENBLOAD"CAS : " 

1510 IFT4="T"THEÑINPUT"TINTAs";TIs PRINT:INPUT"PAPEL : »;PL 5 V=TI*16+PL 
1520 SCREEN 2:C0L0R T,P,BsCLSsÁ=USR2(O)sRETURN 
1530 XZ=X:XZ=X/8:YZ=Y 
1540 V=T*16+P 
1550 D=STICK(O) 

1560 IFD=10RD=80RD=2THENY=Y-1:IFY<0THENY=0 
1570 IFD=40RD=50RD=5THENY=Y+1sIFY>191THENY=191 
1580 IFD=20RD=30RD=4THENX=X+1:IFX>31THENX=31 
1590 IFD=60RD=70RD=8THENX=X-1sIFX<0THENX=0 
1600 PUTSPRITEO,<X*8,Y-4),T 

1610 IFSTRIG(O)=-lTHENVPOKE(8192+Y MOD 8+X*8+256*INT(Y/8)>,V 
1620 T*=INKEY*sIFT*="T"THENGOSUB1460 
1630 IFT*="R"THENX=XZ sY=YZ sBEEP íRETURN 
1640 GOTO 1550 

1650 DATA 1,0,18,21,0,0,11,3A ,C0 ,CD ,59,0,1,0,18 ,21,0,20,11,3A,D8,CD,59,0,09,1 ,0, 
18,11,0,0,21,3A,C0,CD,5C,0,1,0,18,11,0,20,21,3A,D8,CD,5C,0,C9,E7 
1660 RESTORE 1650 

1670 FOR A=49150! TO 49200! sREAD A* sB=VAL ( "8<H"+A*) sPOKE A ,B rNEXT 
1680 RETURN |I 
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GUSANO GLOTON 


1000 

1001 

1002 

1003 

1004 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 


***************** 
* * 

* GUSANO GLOTON * 

* * 
***************** 


KEYÜFF sBEEP 

SCREEN 3:COLOR 15,0,0:CLS 
OREN "GRP:“ AS#1 

PSET (40,50),1: COLOR 9 : PRINT# 1 , u SUSANC 
PSET (40,90) ,1sCOLOR 9:PRINT#1,“GLOTON" 

CLOSE 

LINE (0,35)-(255,35) ,11 
I TNF (O i 'PS) — ( i'?«=¡} 11 

PLAY “VI5CDEFGDFECFDFECCC",“V1505CDEFGDFECFDFECCC“ 

IF PLAY(O)=-l THEN 1130 
' PREPARACION ' 

KEiYOFF sBEEP 
SCREEN 1 , 1,0 
COLOR 15,1,1:CLS 
' GRAFICOS 7 

DATA 60,126,255,255,255,255,126,60,0,0,24,60,60,24,0,0 


1190 

1200 RESTORE 1190 
1210 FOR A=1080 TO 
1220 READ B 
1230 VPOKE A 


1095 


1240 NEXT A 

1250 VPOKE 8208,144:VPOKE 8209,32sVPOKE 8216,160:VPOKE 1 

B217,160 s 

VPGKE 8219,160 



1260 VPOKE 8198,208:VPOKE 8199,208 

1270 P=0:V=3:DEFFNH(X, Y)=VPEEK<6146+32*X+Y) 










1280 CLS SPRINT" ■■ 


M PUNTOS:00000 | | VIDAS:00 


1290 FOR A=i TO 17 sPRINT"| ééééééééééééééééééééééééééé |" 5 :NEXT A 

1300 PRINT" ~. I , a " ; 

1310 LOCATE 25,1sPRINTUSING"##";V 
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1330 XB=X t YB=Y. . . .. .•. i .i. 

1340 SOUND 8,15 
1350 D=STICK(O) 

1360 IF D=1 THEN S-l 

•1370 IF D=3THEN S=4 í i 

1380 IF D=5 THEN S-2 

1390 IF D=7 THEN S=3 

1400 IF S=1 THEN X=X-1 

1410 IF S=2 THEN X=X+1 

1420 IF S=3 THEN Y=Y-1 

1430 IF S=4 THEN Y=Y+1 } I 

1440 G=FNH(X ,Y) 

1450 IF G<>136 THEN 60SUB 1510 

1460 P=P+5 sLOCATE 9,1¡PRINTUSING"#####";P 

1470 C-C+1sIF 0458 THEN FOR A=1T03¡S0UND8,15¡F0RB=0T0255¡SOUNDO,B¡NEXTB¡S0UND8 
O¡NEXTA:P=P+50 ¡GOTO 1280 

1480 SOUND 8,12¡FOR A=90T0 250 STEP20¡SOUND 0,A:NEXT A¡SOUND 8,0 
149^ LOCATE Y , X:PRINT " f " 

1500 GOTO 1350 

1510 FOR A=15 TO O STEP -1 

1520 VPOKE 8208,16*A¡SOUND 8,15¡FOR B=250 TO O STEP -6¡SOUND 0,B¡NEXT B ¡SOUND 8 

O¡NEXT A¡VPOKE 8208,144 

1530 V=V-1 ¡ IF V<0 THEN RETURN 1560 

1540 LOCATE 25,1¡PRINTUSING"##";V 

1550 RETURN 1280 

1560 BEEP 1 ; 

1570 PLAY "VI504CD03B04E2R4","V1504EFD62R4","V1504GAG05C2R4" 

1580 IF PLAY(O)=-l THEN 1580 
1590 COLOR 7:CLS 

1600 PRINT ¡PRINT" IH ■■ ■■ ■ ■ ■ ■■ ■ 

■HE HB ■*■ ■ ■■■■■■■ HH ■ ■ ■ ■ HÉT 

1610 PRINT ¡PRINT" HÉI ■ ■ ■ ■ ■ I R 

s* i * ■ ■ * ■■■■■ m V 1 an . ■ . n i h" . 

1620 VPOKE 8219,208:VP0KE8217,208 

1630 LOCATE O,16:A$="PUNTOS¡“+STR$(P)¡GOSUB 1700 
1640 A$="OTRA PARTIDA (S/N)"¡GOSUB 1700 
1650 A$=INKEY$ 

1660 IF A$="S" OR A$="s" THEN RUN 

1670 IF A*="n" OR A*=»N" THEN SCREEN O¡FORA=1 TO 50¡A*=INKEY*¡NEXT A¡END f- 
1680 V=16* <2+INT(RND(1)* 13))¡VPOKE 8219,V¡VPOKE 8217,V¡FOR A=1T050¡NEXT A 
1690 GOTO 1650 

1700 PRINTTAB <15-LEN(A*)/2) 5 A*¡PRINT¡PRINT¡RETURN 
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GENERADOR DE 

SONIDOS 


1000 ' ********************US I 

1Ó01 * * - 

1002 / * GENERADOR DE SONICOS i / 

1003 7 * * 

1004 7 ************************ 

íoio U 
1020 7 
1030 7 
1040 í y I 
1050 KEYOFF 
1060 BEEP 
1070 SCREEN 3,,0 
1080 COLOR 1,15,15 
1090 CLS 

1100 A=RND(-TIME) 

1110 OREN "GRP s u AS#1 
1120 PRESET (0,0) 

1130 PLAY "V15T20004BBBAGFEDC03BAGFEDC02BAGFEDCCC","V15T20006BBBAGFEDC05BAGFEDC0 
4BAGFEDCCC" 

1140 FOR A=1 TO 60 j 
1150 COLOR 1+RND<1)*13 
1160 PRINT#1," SOUND»" 

1170 NEXT A 
1180 CLOSE 

1190 FOR A-l TO 1000 _ 

1200 NEXT A 

1210 ON STOP GOSUB 1810 
1220 STOP ON 
1230 SCREEN O,,O 
1240 COLOR 1,15 
1250 LOCATE , ,0 


1260 PRINT"************************************** GENERADOR DE SONIDOS ** CREASO 
UND ************************************** n 

1270 PRINT n 00s 00000000 -Tono A: Byte In-ferior 


01s 00000000 


íor' 




1280 PRINT"02: 00000000 -Tono B: Byte Inferior 
ior" 

1290 PRINT"04i OOOOOOOO -Tono C: Byte-In-ferior 


03: OOOOOOOO 
05:-SOOOOOOO 


Byte Super 
Byte Super 
EKfte-Super 


1986 ■ AMIGOS DEL MSX ■ 13 
























































































































































130° PRINT"06: 00000000 -Generador Ruido (0-31) 07: 00000000 -Habilita Voz u Rui 
n° ~ Am P litud voz A 09: 00000000 -Amplitud voz B 1 

?4io°o2?M^,; AmplÍtUd VOZ C UÍ 00000000 -Periodo env. b y íe inf." 

ente P n INT 125 00000000 byte sup . 13: 00000000 -Forma de la envolv 


1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

N;" 

1630 

1640 

1650 

1660 

1670 

1680 

1690 


DIM S$<13) 

DEF FN Bí(N)=RIGHT$("00000000"+BINÍ(N), 8 ) 

F0R A=0 TO 13 

SOUND A ,0 

Sí(A)="00000000" 

LOCATE 4,A+4 
PRINTSÍ(A )5 
NEXT A 
X=0:Y=0 
D=STICK'< 0 ) 

IFD= 1 0RB=20RD=8THENX=X- 1 ;IFX<0THENX=0 
IFD=40RD=50RD=6THENX=X+1:IFX >13THENX=13 
IFD=20RD=30RD=4THENY=Y+1: IFY>7THENY=7 
IFD=60RD=70RD=8THEN Y=Y- 1 :IFY<0THENY=0 
LOCATE Y+4,X+4 ,1 
IFSTRIG(O)=-lTHENGOSUB 1560 
AÍ=INKEYÍ 

IF Aí="=" THEN GOSUB 1610 
IF Aí="-" THEN GOSUB 1640 
IF AÍ=CHRÍ(13> THEN GOSUB 1590 
IF AÍ="C" THEN BEEPsGOTO 1350 
IF INKEYí="D" THENGOSUB 1730 
GOTO 1420 

Aí=MIDí(Sí(X) ,Y+l , 1 ) 


IFAÍ=" 1 "THENMIDÍ (Sí (X) , Y+l ,1)="0 , ‘ : LOCATE Y+4 , X+4,0:PRINT"0" 

IFAí = "O"THENMIDí(Sí(X) ,Y+1,1)="1":LOCATE Y+4 , X+4,0sPRINT"1" 

SOUND X ,VAL ("&B"+SÍ(X)) 

RETURN 

N=VAL ( "8<B"+SÍ (X) ) :N=N+1 : IFN>255 THEN N=255 

Sí<X)=FNBí<N):L0CATE4,X+4,0;PRINTSí(X)rLOCATE 9,20 :PRINT"DATO EN DECIMAL: 



GOTO 1590 


N=VAL < "í<B"+SÍ (X) ) ;N=N—1 : IFN<0 THEN N=0 
GOTO 1620 


LOCATE 


.0 


FOR A=20 TO 22 
LOCATE O, A 
PRINT" 


1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 


NEXT A 
LOCATE 0,21 
RETURN 
GOSUB 1660 
PRINT"DATA "5 
FOR A=0 TO 13 
B=VAL("&B"+SÍ(A)) 

PRINT RIGHTÍ<"0"+HEXí(B),2); 
IF A<13 THEN PRINT","; 

NEXT A 
RETURN 
BEEP 

LOCATE ,,0 


C 
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1830 STOP OFF 
1840 SCREEN O 
1850 RETURN 1860 
1860 PRINT M FIN" 
1870 PRINT sEND 



5 

p mi 

S 

. ; : . ¡ . 1 . 

.|.1. : j.j-i-f- 


DRIVER 


****** IHt ii 
* * 

* DRIVER * 

* * 
********** 


T? 


1000 
1001 
1002 

1003 

1004 
1010 
1020 ' 

1030 ' 

1040 ' 

1050 KEYOFF 
1060 BEEP 
1070 SCREEN 3 
1080 COLOR 15,1,1 
1090 CLS 

1100 OPEN M GRP:"AS#1 
1110 PRESET (36,80) 

1120 COLOR 7 
1130 PRINT#1, "DRIVER" 

1140 PRESET(32,80) 

1150 COLOR 4 
1160 PRINT#1,"DRIVER" 

1170 LINE (O,50)-(256,60),6,BF 
1180 LINE (O , 130)-(256,140) ,6,BF 


.¡h 4- 




..T.¡.I.! 

• 


i 

.; 


• 

■ , 






¡. 


1:1 




. 


ejif 




E 


lí 


:r 


' 


,, 


1 


. 


.r 1. 

H: i 


1190 PLA Y "VI5CEDBFEDFEBGFEDCCCV1OCV5C"V1503CEDGFEDFEBGFEDCCCV14CV13CV12CV1OCV 
8CV5C" 

1200 IF PLAY(O)*—1 TOEN 1200 

1210 GLOSE 

1220 A=RND(-TIME) 

1230 V=RND(1)/1O 





































































































1240 C=13.94 
1250 D=3 
1260 IS=0 
1270 S=144 

1280 DEFFNG=VPEEK(6304+INT(S/B)) 

1290 DEFFNH=VPEEK(6305+1NT(S/8)) 

1300 SCREEN 1,2,0 
1310 COLOR 1,2,2 

1320 FOR A=0 TO 22 sPRINTTAB (11) ? :NEXT A 

1330 GOSUB 1900 

1340 SOUND 4,24 

1350 SOUND 6,32 

1360 SOUND 7,3 

1370 SOUND 8,2 

1380 SOUND 9,2 

1390 SOUND 10,16 

1400 SOUND 11,58 

1410 SOUND 12,0 

1420 S0UND13,14 

1430 FOR A=-20 TO 32 

1440 SOUND11,90-A 

1450 PUT SPRITE1,(141,A>,6,0 

1460 FOR B=1 TO 75 

1470 NEXT B 

1480 NEXT A 

1490 TIME=0 

1500 IF D=1 THEN C=C+V 
1510 IF D=2 THEN C=C-V 

1520 IF RND(1)>.97 THEN D=1 + INT(RND<1)*3) :V=RND(1)/6 
1530 L0CATE11+8*C0S (C) ,23 SPRINT 
1540 J=STICK(0> 

1550 IF J=3 THENIS=*lS+2 
1560 IF J=7 THENIS=IS-2 
1570 S=S+IS 

1580 IF ISOO THEN IS=IS-SGN(IS) 

1590 PUTSPRITE1,(S-3,32),6,0 
1600 IF FNG0219 OR FNH0219 THEN GOTO 1620 
1610 GOTO 1500 
1620 BEEP 
1630 SOUND 6,21 
1640 SOUND 7,247 
1650 SOUND 8,16 
1660 SOUND 11,100 
1670 SOUND 12,60 
1680 SOUND 13,0 
J690 FOR A=1 TO 5 
1700 PUTSPRITEO,(S-3,32),15,A 
1710 FOR B=1 T0200 
1720 NEXT B 
1730 NEXT A 
1740 SCREEN 1;P=TIME 
1750 SCREEN 1 
1760 COLOR 7,1,1 
1770 LOCATE 0,6 
1780 A$="GAME OVER" 

1790 GOSUB 1990 
1800 LOCATE 0,12 
1810 A*="PUNTOS:"+STR$(P) 

1820 GOSUB 1990 
1830 A*="OTRA PARTIDA (S/N)" 

1840 GOSUB 1990 
1850 POKE &HFCAB,255 
1860 A$=INKEY* 

1870 IF A$="S" THEN RUN 
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\ l l ~ ■ i i i • : t 

5 i i f ! -r | 

i i i t i i ! I i. | 


r r i i 

i .... i.i 


;.f—f.f.f. th" ■ t.r!Jn 

|í | j 

i j 

I.j 


j 

; j i 

-4.| 

! . i 1 \ } j I | i 

? i 1 í 1. ! • i ! .1 

| j i 



¡.f .| 

[.|_ \ .| .! 

l .1 [ i ! j i I f 

1880 IF A*="N" 

1 i \ i 1 : I 

THEN FOR A=1 TO 50sA*=I 

NKEYSs 

NEXT 

AsSCREEN 

l'OTW L3LJ 1 U 

1900 DATA 7,F,1C,1B,1F,1B,B,F,B,A,1C,1 
■ 8 ,F8 ,F8 ,F0,90 ,E0,0,81,11 ,29,18,17,4B ,E 

F, 1F 
i,F7, 

,F 

3A 

,9,7 

,2D,( 

,E0,F0,38 
BF , 1B , 1E , 


1910 DATA 0,20,2,10,5,0,52,8,1 ,20 ,5,10 ,4,0,12,0,0,40,10 ,0 ,40 , A ,20,40,8 ,0,44 ,0 ,90 

,2,40,10,0,0 ,40,2,0,10,2,0,40,4,0,2,10,0,1 ,0,0,2,20 ,0 ,0 ,48 ,0 ,0,9 ,0,4 ,40 ,0,10 ,Ó ,4 

1920 DATA 1,0,0,2,80,0,0,0,0,20,0,0,0,0,1,10,0,0,22,0,0,0,8,0,1,0,0,0,4,0,0,8 

í 930 RESTORE 1900 

1940 FOR A=14336 TO 14495 

1950 READ 

1960 VPOKE A , VAjL ( " &H 11 +B$) 

1970 NEXT A 
1980 RETURN 

1990 PRINTTAB <15-LEN <A$)/2) ;A* 

2000 PRINT 
2010PRINT 
2020 RETURN 





CUBILETES 


.f—t ; t 

* CUBILETES i 


*****##*#**« 


1000 

1001 

1002 

1003 

1004 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 

I 


KEYOFF 

BEEP 

SCREEN1,3,0 
COLOR 1,2,2 
GOSUB 2220 [ 

LOCATE :0,2 SPRINT" 







. i . í . j 


. 

, ¡ 





. j 






~| 



i 

.. . - i ' ,. ! - 1 . 1 

.i 

■ i 



l 

1 f i j j 1 ; . f ■ ; . j 





} 1 i r ] i :j 



. 1 . I. 

| 

i i f 1 ; i ■ : i 

„J . . i i. i i j • UlajLJ 



• 14’ ! r ,4.1 


1 i r 





.i 

\ 

.. .L.JJ.Í 

.i.rt.f.f:.r-frdvfri 

.i.h.i"..H"-".FfrH 





| 

j j | i 

.I.J..1.1 . ,:I_| .. :j 



1 i i ti 


I 0000 | 


PUNTOS | 


0000 


I FALLOS | 

_i_ J il_U 
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1110 LOCATE O,17:PRINT 


i—i 


i—i 


i—f 


i_i " 


1120 GÜSUB 1730 
1130 P=0 
1140 F=0 

1150 DEFFNP*<P)=RIGHT$("0000"+MID*(STR*<P) ,2,4) ,4) 
1160 A^= " —=< CUBILETES >=--" 

1170 GÜSUB 1900 

1180 PLAY "V1504CDEGEEE" , "VI506CDEGEEE" 

1190 IF PLAY(O)=-1 THEN 1190 
1200 A*=" " 

1210 GÜSUB 1900 

1220 PUTSPRITE5,(115,90) ,4,1 

1230 N=2 

1240 GÜSUB 1500 

1250 GÜSUB 1810 

1260 GÜSUB 1600 

1270 FOR A=1 TÜ 50 

1280 A*=INKEY* 

1290 NEXT A 

1300 A$="ADIVINA DONDE ESTA" 

1310 GÜSUB 1900 
1320 A*=INKEY* 

1330 IF A$<" 1" OR ASV3" THEN 1320 
1340 R=VAL<A$) 

1350 A$=" " 

1360 GÜSUB 1900 

1370 BEEP 

1380 SOUND 8,15 

1390 FOR A=100 TO 250 STEP 7 

1400 SOUND O,A 

1410 NEXT A 

1420 SOUND 8,0 

1430 N=R 

1440 GÜSUB 1500 

1450 IF U=R THEN GÜSUB 1910 ELSE GÜSUB 2000 
1460 GÜSUB 1770 
1470 GÜSUB 1850 
1480 GOTO 1250 

1490 PUTSPRITEN,(55+30*N,90),7,0:RETURN 
1500 F0RA=90 TO 65 STEP -1 
1510 PUTSPRITEN,(55+30*N,A) 

1520 BEEP 

1530 NEXT A L 

1540 RETURN 

1550 FOR A=65 TO 90 

1560 PUTSPRITEN,(55+30*N,A) 

1570 BEEP 
1580 NEXT A 
1590 RETURN 
1600 U=RND(-TIME) 

1610 U=1+INT(RND(1)*3) 

1620 A$="!!! CAMBIO LA BOLA !!!" 

1630 GÜSUB 1900 

1640 PUTSPRITE5*(55+30*U,90),4,1 

1650 FOR A=1 TO 20 

1660 SOUND 1,100+RND(1)*150 

1670 SOUND 8,15 

1680 FOR B=1 TÜ RND<1)*150 

1690 NEXT B:SOUND 8,0 

1700 FOR B=1TO 50 

1710 NEXT B 

1720 NEXT A 
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1730 FOR N=1T03 























































1740 GOSUB 1490 
1750 NEXTN 
1760 RETURN 
1770 FOR N=1T03 

1780 IF VPEEK(6912+4*N)=90 THEN GOSUB 1500 
1790 NEXTN 
1800 RETURN 
1810 FOR N=1T03 

1820 IF VPEEK(6912+4*N)=65THEN GOSUB 1550 

1830 NEXT N 

1840 RETURN 

1850 LOCATE‘6,5 

1860 PRINTFNP*(P) 

1870 LOCATE 19,5 

■i DDTKITCKID* / 




LOCATE 19,5 
PRINTFNP*(F) 

RETURN 

LOCATE O,8: PRINT" 

2) ; A$ sRETURN 
P=P+5 

GOSUB 1850 
SOUND 8,15 
FOR A=1 TO 10 
FOR B=0 TO 255 STEP 
SOUND O ,B 
NEXT B 
A 


1 :LOCATE O,8:PRINTTAB(15- 


-LEN ( 


IB 1850 

ID 1 ,1 :SOUND 8,15 

"=150 TO 255 STEP .2 
- _ 


O,A 
A 

8,0:SOUND 1,0 
4 THEN RETURN 2090 


1770 
1810 
ME OVER" 
1900 

1 TO 2000 


(S/N)" 


2160 

2170 

GOSUB 1900 

POKE &HFCAB ,255 



2180 

2190 

2200 

2210 

A*=INKEY* 

IF A*» ,, 8 M THEN RUN 

IF a$="N" THEN SCREEN OsEND 
GOTO 2180 



2220 

DATA 7,0,19,13,37,27,27,33,30,3F 

,3F 

C ,FC 
0,C0 

,FC,FC,FC,FC,F8,E0,0 ,0,0,0,0 ,0 ,0 ,( 
,80,0,0 

5,0 

2230 

RESTORE 2220 




.f. 


,3F ,3F ,3F , IF ,7 ,E0 ,F0 ,F8 ,F8 ,FC ,FC ,1 

1 , 2 , 3 , 3,1 ,0 , 0,0 ,0 ,0 ,0 ,0 ,0 , 0,0 ,0 ,f 


,F4 

,80 


,00,3 

,00 ,C 




Mr*.p* 

i f 




V 1 
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cuco 



IODO ' *** cuco *** 

1010 ' 

1020 ' ] 

1030 ' 

¿040 ' 



1 


1050 KEYOFF 
1060 BEEP 
1070 SOPEEN 3,2,0 
1000COLOR 1,15,15 
•• 1090 CUS 

1100 OPEN "GRP s n AS#1 I.!.I ... : .f 

1110 LINE (50,50)-(210,¿SO) ,1 ,BF 
1120 PRESET (76,86) Jí I | I 
1130 COLOR7 
1140PRINT#1,"CUCO'M 
! ¿150 PRESE!(72,06),1 
1160 COLOR 4 

! 1170 PR í NT# 1 , “CUCO'' I | 

4 1100 LINE (50y50) ) ,6 ,B 

1190GLOSE 

1200 PLAY "V15EDCDEFFDGEFCBAGCFDBEGCCCC" 

1210 IF PLAY(0>=-l THEN 1210 
1220 SCREENi 1,2,0 
1230 COLOR 1,15}15 ! 

.i.11240.CLS !~.í. 

i : : í : : i • i ? ! ! • i ! I i í 


1250 P=0 
1260 F=0 

11270 DEFFNPt(P)=RIGHT$( n OOOO"+MID$(STR*(P),2,4),4) 
1280GOSUB 1770 
1290 GOSUB2120 

i 1300 M=1 
1310GOSUB 1730 
1320 PUTSPRITE 1,(52,72),13,2 
4230 IF STRIG(O>1 THEN GOTO 1350 
1340 GOTO 1310 I 
1350 SOUND 8,15 
1360SOUND 1,0 

1370 FOR A=52 TO 190 1 f; '4 

1380SOUND O,190-A 
1390 PUTSPRITE I,(A,72),13,2 
1400 NEXT Ai 
1410SOUND 8,0 
1420 IF M=2 THEN 1520 
1430SOÜND 8,15 
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1440 

1450 

FOR A=72 
SOUND 0,A 

1460 

PUTSPRITE 

1470 

NEXT A 

1480 

SOUND 8,0 

1490 

F=F+1 


TO 167 


18,2 :PRINTFNP$(F) 
1690 


LOCATE 
GOTO 

SOUND 8,15 
FOR A=190 TO 198 
SOUND 0,255-(A-189) *20 


PUTSPRITE 



1560 

1570 

1580 

FOR B=1 TO 
NEXT B 

NEXT A 

■'T’-r 

1590 

SOUND 8,0 


1600 

1610 

FOR A=1 TO 
M=3-M 


1 , (A,72) ,13,2 

30 


100 



GOSUB 1740 
FOR B4t TO 
NEXT B 
NEXT A 
P-P+5 

LOCATE 7,2 
PRINTFNPS(P) 

FOR A=1 TO 1000 
NEXT A 

IF F>4 THEN 1880 
1300 
RND(1) 

THEN PUTSPRITEO,(192,73),5,0 
THEN PUTSPRITEO,(192,73),5,1 




i TV 


TV 


GOTO 
IF 
IF M= 1 
IF li=2 
RETURN 
CLS 
PRINT" 
O 0000 


.9 THEN M=3-M:SOUND 9,15:SOUND 9,0 


'///////>" 


vm puntos vm 



1800 


print" 

V//M 

m\ 

* * 

w— 1 * #** i i m 

11 '////amm mmsmmm h 

Mmm ■ ■ h ii m 

i m¡mm i ■ ■ ■ 



Wrr 


fallos ’/m wm , 000.0 

7/7/ 


mm///A —i 


##«*7/7/1 ## 


* * 


i I 


r////i*#i 
11 


* * 


1810 PRINT" 

| M»I<1 

1820 VPOKE 8218,104- 
1830 VPOKE 8217,166 
1840 VPOKE 8193,195 
1850 VPOKE 8219,64 
1860 LOCATE 0,0 
1870 RETURN 

1880 PLAY "VI5T200BBBBAGFEDCCCC" 
1890 IF PLAY(0)=-l THEN 1890 
1900 SCREEN 1 
1910 LOCATE 


0 


9/M 


m 

m 


■ ■ ■ 


0,5 

A$=”GÁME OVER" 
GOSUB 2070 
LOCATE 0. 


,19 

A*=" PUNTOS: 

GOSUB 2070 
A*="OTRA PARTIDA 
GOSUB 2070 
FOR A=1 TO 50 
A$=INKEY$ 


"+FNP$(P) 


(S/N)" 


■ 

7/7/7/ 
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2010 NEXT A 
2020 POKE &HFCAB,255 
2030 A$=INk'EY$ 

2040 IF A$= ,, S" THEN RUN 
2050 IF A*="N" THEN SCREEN O¡END 
2060 GOTO 2030 

2070 PRINTTAB<15-LEN<A$)/2);A$ 

2080 PRINT 
2090 PRINT 
2100 PRINT 
2110 RETURN 

2120 DATA O , O , O , 3 ,7,3, 0 , 0,0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,C,38,78 «BO , FC , FE , DF , 1 F,3F,3F,3F 
F ,C, IF ,0 ,0,6,3,1,0,1,6,0,0,0,0,0,0,0,0,0 ,38,78 ,B0 ,FC,FE,DF , IF,3F,3F,3F , IF 

2130 DATA O,O,O,O,1C,3E,3E,10,0,0,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O 

2140 RESTORE 2120 
2150 FOR A=14336 TO 14431 
2160 READ B$ 

2170 VPOKE A , VAL ( " ?<H " +B$) 

2180 NEXT A 
2190 RETURN 


, IF,IF, 
,IF,F ,0 




... 


.. •■■■■ j.™ 


i :1 ! i 

' 
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: ! 1 

ir 

.t.. 
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.i-.f 
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PUENTES 


1 C)CjC) 

1010 
1020 -1 
1030 ' 

1040 

1050 KEYüFF 


**** PUENTES **** 


1060 

BEEP 


.Í .i - 

1070 

SCREEN 3,1,0 

T.. 


1080 

COLOR 15,1,1 

| 


1090 

CLS 

f- 


1100 

OPEN "GRP : " AS#1 

1 . 

.t“i.-f" 

1110 

LINE (0,120)-(256 

,60),4,BF 

1120 

PRESET (39,78) ,4 



1130 

PRINT#1,"PUENTE" 
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1140 PRESET (35,78) ,4 

1150 COLOR 1 

1160 PRINT#1 /‘PUENTE" 

1170 LINE (0,60)-(256,60) ,7 
1180 LINE (0,120)-(256,120),7 
1190 COLOR 15 

1200 PLAY "V15T230GFEDFGEDBAGDFEBCGDFEBDGEFDCCC" 
1210 CLOSE 

1220 IF PLAY(0>=-l THEN 1220 
1230 SCREEN 1,2,0 
1240 COLOR 1,12,12 
1250 CLS 

1260 VPOKE 8219,112 
1270 VPOKE 8218,17 
1280 VPOKE 8216,225 
1290 FOR A=1 TO 3 
1300 PRINT" 






1340 PRINT" 

1350 NEXT A 
1360 PRINT" 

I 0000 
1370 GOSUB 2360 
1380 P=0 
1390 F=0 

1400 DEFFNP$(P)=RIGHT£("0000"+MID$(STR$(P) ,2,4) ,4) 

1410 S=1 
1420 GOSUB 1690 
1430 M1=0 
1440 Y 1=0 
1450 C1=6 
1460 M2=1 
1470 Y2=130 
1480 C2=4 
1490 A=RND(—TIME) 

1500 A*=INKEY$ 

1510 IF S>0 AND A*="l" THEN GOSUB 1630:S=0sGOSUB 1690 
1520 IF SOI AND A*="2" THEN GOSUB 1630 sS=l :GOSUB 1690 
1530 IF S<2 AND AS="3" THEN GOSUB 1630:S=2sGOSUB 1690 
1540 Y1=Y1+4 

1550 IF Y1>256 THEN GOSUB 1750 
1560 PUTSPRITEO,(Y1,23+48*Ml) ,C1,0 
1570 IF Y1>88ANDY1<168ANDM1<>S THEN GOSUB 1790 
1580 Y2=Y2-4 

1590 IF Y2<0 THEN GOSUB 1850 
1600 PUTSPRITE1,<Y2,23+48*M2),C2,0 
1610 IF Y2>88ANDY2<168ANDM2<>S THEN GOSUB 1890 
1620 GOTO 1500 
1630 E=2+6*S 
1640 LOCATE 1O,E:PRINT" 

1650 LOCATE 10,E+1sPRINT" 

1660 LOCATE 10,E+2sPRINT" 

1670 LOCATE 10,E+3sPRINT" 

1680 RETURN 
1690 E=2+6*S 

1700 LOCATE 10 ,E :PRINT"-¿nF 



TTTT 


1710 LOCATE 10,E+lsPRINT 
1720 LOCATE 10 ,E+2 sPRINT" 
1730 LOCATE 10 ,E+3 sPRINT^ 
1740 RETURN 
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1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

tboo 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2 Í 00 

2110 

2Í120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

f,fe 

0,80 

2370 


Y14=0 

M1=INT(RND<1)*3) 

C1=2+1NT(RND(1)*13) 
GOTO 1950 
GOSUB 2040 
PUTSPRITEO,,9,1 
M1=S 

FOR A=1 Tü200 
NEXT A 
GOTO 1990 
Y 2=256 

M2=INT(RND(1) 
C2=2+INT(RNDC 
GOTO 1950 
GOSUB 2040 
PUTSPRITE1,,9,1 
M2=8 
FOR A=1 
NEXT A 
GOTO 1990 
P=P+5 


*3) 

1)*13) 


TO 200 





LQCATE 4,22 
PRINTFNP$(P> 

RETURN 
F=F+1 

LOCATE 22,22 
PRINTFNPS(F) 

IF FÍ9 THEN RETURN 2110 
RETURN 
SOUND 6,21 
SOUND 7,247 
SOUND 8,16 
SOUND 11,100 
SOUND 12,60 
SOUND13,0 
RETURN 
BEEP 

PLAY "VI5T200BBBBAGFEDCCCC" 

SCREEN 1 ^ 

LOCATE 0,5 

A*= M GAttE OVER" : GOSUB 2300 f 
LOCATE 0,11 
A*="PUNTOS: H +FNP$<P> 

GOSUB 2300 

A$="OTRA PARTIDA (S/N)" 

GOSUB 2300 
FOR A=1 TO 50 
A$=INKEY* 

NEXT A 

POKE &HFCAB,255 
AS=TNKEY$ 

IF A$= M S" THEN RUN 
IF A$="N" THEN SCREEN O:END 
GOTO'2250 
LOCATE 0,0 

PRINTTAB < 15-LEN (A$) /2) ;AS 
PRINT 
PRINT 
PRINT 
RETURN 
END 

DATA 0,0,0,1C,7F,F4,F3,F3,F3,F3,F4,7F 
,38,0,0,O,8,O,O,24,0,8,3,23,B,1,83,12, 
,8,42,0,90 
RESTORE 2360 




,1C,0 

10,84 


, 0 , 

, 0 , 


O,O,O,O 
10,0,82 


,38,FE 

, 0 , 88 , 


,2F,CF 
O,AO ,4 


,CF 

,E0 


,CF ,CF,: 
,C0,C9,E 


I 
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2400 VPOKE A, 

VAL ( l, &H"+B*) 

| | 1 ¡ ! 1 1 i i 1 

| i . í 1 ! ! i 

i.j.|.|.|.i.i.|. 

f i 

1.j. 

! i 


2410 NE 
kS 2420 RE 

:xt A 

“T*| irsk i 



L_U..4- l ,_i. ._ J 

i i. i i t i i i 




lTURN 
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! f T ! i ! IH f—1 

: i i i i j I j 1 1 j 

j 




...... 




-i *;. ¡¡ ■ . 

i.t.j i j .¡. 

h.i. 

j j 







. S I 1 { ! | ] ! ; 1 

I.S.;.1.1.i.!.:.í.1..1.4.i. 

i | ; i 1 i \ 1 



í .. \ 

| r j-r : 1 

i v 

. i . i f ! I I 

** 



[ |; | [ i [ ; [ | ¡ ! J 

; j | f T j | T. 



L w . ir .J _ _ i. 

1 —4 -4—;— i - — i.1 1 t i . i j 

i i | 

i i 1 T T l 1 1 H 1 1 

h :. |— ; j- 

t~t~T 

i . i . 



! 1* ; - 
i-.i.{.f 



DONUTS 


********** 
* * 

* DONUTS * 

* * 
********** 


KEYOFF 
BE EP 

SCREEN O 
COLOR 1,9,9 
CLS 


........ 


' * * * * * * * * ***** * * * * * * * * 

' * INPUT DATOS COLOR * 

' ********************* 

/ 

PRINT“DATOS DEL COLOR... 
PRINT 

INPUT “PAPEL:";P 
IF P<0 OR P>15 THEN 1190 
INPUT "BORDE:";B 
IF B<0 OR B>15 THEN 1210 
INPUT "TINTA:"(T 
IF TKOORT>15 THEN 1230 
PRINT 
PRINÍ I 
PRINTí 



.. 
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1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 


****** *************** 
* INPUT DATOS DONUT * 
********************* 


PRINT"PARAMETROS DEL DONUT. . ." 

PRINT 

INPUT "GROSOR:";G 
INPUT "ANCHO:"sXI 
INPUT "ALTO: " 3 Y1 
INPUT "CONCENTRACION:"5C 
SCREEN 2,1,0 
COLOR T,P,B 
CLS 

PI=3.1416 

•••>.-i.|.- ■ ■ 4.• §■.'--'f -— 

7 ******************** 

7 * DIBUJO DEL DONUT * 

7 ******************** 

FOR A=0 TO 2*PI STEP PI/C 
X=X1*C0S (A) 

Y=Y1*SIN (A) 

CIRCLE (X+127,Y+87),G,T 
NEXT A 

PLAY "V1504CD03B04E2R4-,"V1504EFDG2R4","V1504GAG05C2R4" 
IF PLAY(O)=—1 THEN 1540 
FOR A=1 TO 50 
A$=INKEY* 

NEXT A 


7 ********************** 

7 * ESPERA PARA SEGUIR * 

r ********************** 

/ 

A*=INKEY* 

IF ASO"" THEN. RUN 
GOTO 1630 
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NATACION 


-.1."" 


...-*. : .H. 


1000 ' ************ 

1010 ' * * 

1020 ' * NATACION * 

1030 ' * * 

1040 ' ************ 

1050 ' 

1060 ' 

1070 KEYOFF 
10S0 BEEP 
1090 SCREEN 3,1,0 
1100 COLOR 1,7,7 
1110 CLS 

1120 OPEN "GRP : "AS#1 
1130 A*="NATACI0N H 
1140 X=35 
1150 FOR A=1 TO 8 
1160 COLOR 15 
1170 PRESET(X+4,80) 

1180 PRINT#1,MID$(A$,A,1); 
1190 COLOR 1 


-. L 


I 




T 


.4 




.t. 


t. 


4. ...4-4- 


.f 


*.¡.I.r 


1200 PRESET(X,80) 

1210 X=X+24 

1220 PRINT#1 ,MID*<A*,A,1) ; 
1230 SOUND 8,15 
1240 FOR B=0 TO 255 STEP 10 
1250 SOUND O,B 




1260 NEXT B 
1270 SOUND 8,0 


rr 


1280 FOR B=1 TO 100 
1290 NEXT B 
1300 NEXT A 


.I.i.L 






1310 FOR A=62 TO O STEP -8 
1320 LINE (O , A)-(256,A) ,4 
1330 LINE (O,192-A)-( 

1340 NEXT A 


. f. 


.t.-i- 


.í- 


i. 


-.t- 


.i. 


i—: 


i..+- 




-4-4--r.4-1*. 




—T 


4-4- 


J _L 


t".t. 


44 


-4 


t-4 


*.-i-- 


.4 


.f. 


-.I.|. 


1350 PLAY "V15T220DFEI 
1360 IF PLAY(0)--1 THEN 1360 
1370 FOR A=0 TO 256 STEP 4 
1380 LINE (A,0)-(A,196) ,7 
1390 NEXT A 
1400 SCREEN 1,2,0 



1 


T-- 


1410 COLOR 15,1,1 


1420 CLS 




m —?—• 

i 

Jirí: 

r.-r.. 

k-.U 
i • 

•■■■“■■■"-i 

. 

r.i. 

| i 

T 


1 1 

_!.. 



) 

i. 

i 

r.^ 


.... r 

i . 



|4 . 

1 . 

i 



i 

ri . 

- -4 .- 




i.t.4- 




T 


-+ 


4 


4 


.r ■ 


. I 


"T 


i. 


i.1.!,- 


.i.. 


..t-T* 


.í:Jl- 


■:.t. 


"1. 


-4. 


í 


.I. JL 


. 4 


t 




.T. 


1986 


• AMIGOS DEL MSX ■ 27 


.4 


ti 


. 1 .* 































































































































































































































































1440 VPOKE 8218,247 
1450VPOKE8217,103 
1460 VPOKE 8219,119 
1470 PRINT" 



1510 NEXT A 
1520 PRINT"M» 

1530 DIM N(6) 

1540 M=1 
1550 H=1 

1560 FOR A=1 TO 6 
1570 N(A)=40 

1580 PUTSPRITEA, (20,7+24*A) ,1 ,2 
1590 NEXT A 

1600 PLAY "V1504CCR16CCR1605CC" 

161O FORA“1TO1500:NEXTA 
1620 FOR A—1 TO 6 
1630 PUTSPRITEA,(28,7+24*A),1,3 
1640 NEXT A 
1650 TIME=0 
1660 GOSUB 2080 
1670 FORA=1TO150:NEXTA 
1680 FOR A=1 TO 6 
1690 PUTSPRITEA,(35,7+24*A),1,0 
1700 NEXT A 
1710 D=STICK<0) 

1720 IF D=3 AND M=1 THEN M=2 :N<1>=N<1)+4:GOTO 1740 
1730 IF D=7 AND M=2 THEN M=1:N<1>=N(1>+4 
1740 PUTSPRITE1,(N(1) ,31) ,4 ,M-1 
1750 IF N(1> >230 THEN F=1:GOTO 1850 
1760 X=2+INT(RND<1)*5> 

1770 N(X)=N(X)+8 

1780 PUTSPRITEX,<N<XI,7+24*X> , 1 ,H-1 
1790 H=3-H 

1800 IF N(X)>230 THEN F=X sGOTO 1850 
1810 LOCATE 23,1 
1820 T=TIME 

1830 PRINTUSING"##.##";T/50 
1840 GOTO 1710 

1850 LOCATE 1,1:PRINT" GANADOR :" ?F ¡ 

1860 BEEP.| 1.j.; •.}. 

1Q70 PLAY "V1504CD03B04E2R4' , , " V1504EFDG2R4" , "V1404GAG05C2R4 1 

1880 ÍF PLAY(O)=-l THEN 1880 .j.I 

1890 FOR A=1 TO 50 
1900 Af=INKEY* 

1910NEXT A 
1920 A$=INKEY$ 

1930 IF A<¡<>"" THEN RUN 1400 
1940 GOTO 1920 

1950 DATA 0 ,0,0,0,13,4F ,2B , ID , A7 ,IÍF ,2F ,3,11 ,F ,0,0 ,0,0,38 ,FE ,El ,C0 ,DC ,FC ,FC ,DC ,C0 
,CO,8Ó,O,O,O,O,O,F,11,3,2F,1F,A7,1D,2B,4F,13,0,0,0,0,0,0,0,80,C0,C0,DC,FC,FC,DC, 
CO ,E1,FE,38,0,0 

1960 DATA O,0,0,0,3,IF,IF,7,7,IF,IF,3,0,0,0,0,0,0,0,78,FE,E1,DC,FC,FC,DC,E1,FE,7 
8 ,0,0 ,0 ,0 ,0 ,0 ,0,1 ,FF ,FF ,7,7 ,FF ,FF , 1 ,0 ,0 ,0,0,0 ,0 ,0,38,FF ,F0 ,EE ,FE ,FE ,EE ,F0 ,FF ,38, 
0,0,0 

1970 DATA 0,0,7E,FF,FFj7E,0,0,0,0,7E,FF,FF,7E,O,O,O,O,O,O,O,O,O,O,O,O,O,O,0,0,0, 
O 

1980 RESTORE 1950 

1990 FOR A=14336 TO 14463 

2000READ B* 
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ALUNIZAJE 


************* 


1000 


1010 


* ALUNIZAJE * 


1020 


1030 


************* 


1040 

1050 

1060 

1070 


1080 


1090 


1100 


1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 


KEYOFF 

BEEP 

SCREEN 3,1,0 
COLOR 15,1,1 
CLS 

OPEN "GRP:"AS#1 
FOR A=0 TO 256 STEP 8 
PSET <A,RND(1)*70),15 
PSET (A, 192-RND(1)*70) 
NEXT A 

PRESET <54,80) 

COLOR 2 

PRINT#1,"LUNAR” 


2010 VPOKE A,VAL( ,, &H"+B$) 
2020 NEXT A 

2030 FOR A=1656 TO 1687 
2040 READ B* 

2050 VPOKE A,VAL("&H"+B$) 

2060 NEXT A 

2070 RETURN 

2080 S0UND 6,15 

2090 SOUND 7 ,&B110111 

2100 SOUND 8, &B 10000 

2110 SOUND 11,0 

2120 SOUND 12,11 

2130 SOUND 13,0 

2140 RETURN 














































































1220 PRESET (50,80) 

1230 PRINT#1,"LUNAR" 

1240 FOR A=96 Tü 120 STEP 4 

1250 FOR B=0 TO 256 STEP 4 

1260 IF POINT(B,A)=2 THEN PSET(B,A>,8 

1270 NEXT B 

1280 NEXT A 

1290 PLAY "V1506T200C07C06FED07C06FEDFE07CDGEFADGEFEDCCC 
DGEFADGEFEDCCC" 

1300 CLOSE 

1310 IF PLAY(O)=“1 THEN 1310 

1320 SCREEN 2,2,0 

1330 COLOR 15,1,1 

1340 CLS 

1350 GOSUB 2480 

1360 P=0 

1370 GOSUB 1640 

1380 X=INT(255*RND(1)> 

1390 Y=0 

1400 IX=0 

1410 IY=0 

1420 SPRITE OFF 

1430 ON SPRITE GOSUB 2330 

1440 D=STICK(O) 

1450 IFD=10RD=20RD=8THEN I Y=IY-l sIFIYC-8THEN IY “ 

1460 IFD=40RD=50RD=6THEN IY=IY+1:IFIY>BTHEN IY= 

1470 IFD=20RD=30RD=4THEN IX=IX+l:IFIX>BTHEN IX= 

1480 IFD=80RD=70RD=6THEN IX=IX—1:IFIX<—8THENIX=-8 

1490 X=X+IX 

1500 Y=Y+IY 

1510 IFX >255 THEN X=0 

1520 IFX<0 THEN X=255 

1530 IF Y<0 THEN Y=0 

1540 SPRITE OFF 

1550 PUTSPRITEO,(X,Y>,5,0 

1560 SPRITE ON 

1570 IF POINT(X,Y)=13 THEN 2000 
1580 IF POINT(X+16,Y>=13 THEN 2000 
1590 IF POINT(X,Y+16)=13 THEN 2000 
1600 IF POINT(X+16,Y+16)=13 THEN 2000 
1610 IF POINT(X+8,Y+16)=13 THEN 2000 
1620 GOTO 1440 
1630 END 

1640 COLOR 15,1,1 
1650 CLS 

1660 A=RND(-TIME) 

1670 FOR A=0 TO 256 STEP 4 
1680 PSET (A,RND(1)*192),15 
1690 NEXT A 
1700 GOSUB 1940 
1710 XB=50+INT(RND(1)*155) 

1720 PUTSPRITE1,<XB,175>,7,1 

1730 LINE (XB-2,192)-(XB-2,184),13 

1740 X=XB-2 

1750 Y=184 

1760 X=X-8 

1770 Y=Y-INT(RND(1)*60)+INT(RNCK 1)*40) 

1780 IF Y<45 THEN Y=Y+45 
1790 IF Y>184 THEN Y=184 
1800 DRAW "C13H=X;, = Y 
1810 IF X>0 THEN 1760 
1820 X=XB+17 

1830 LINE(X,192)-(X , 184) ,13 
1840 Y=184 
1850 X=X+8 

1860 Y=Y-INT(RND(1)*60)+INT(RND(1)*40) 

1870 IF Y<45 THEN Y=Y+45 
1880 IF Y>184 THEN Y=184 
1890 DRAW "C13M= X ; , = Y ; " 
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1900 IF XÍ256 THEN 1850 


1910 RAINT (4,190) , 
1920 RAINT (250,190 
1930 RETURN 


] JL 7 U / ? 1 O >f 1 O 



£ 


1940 X=10+RND(1)*235 
1950 Y = 10+RND(1)* 20 
1960- R=3+RNCK T) *9- 
1970 CIRCLE (X ,Y) ,R,2 
1980 F'AINT (X ,Y> ,2,2 
1990 RETURN 
2000 BEEP 
2010 SDUND 6,21 
2020 SOUND 7,247 
2030 50UND 8,16 
2040 SOUND 11,100 
2050 SOUND 12,60 
2060 SOUND 13,0 
2070 FOR A=1 TO 55 
2080 PUTSF'RITEO , ( X , Y ) , 2+1NT (RND (1) * 13) ,2+INT(RND(1)*2) 
2090 NEXT A 

2100 FOR A=15 TO 1 STEP -1 
2110 PUTSF'RITEO, ,A 
2120 FOR B=1TOSO 
2130 NEXT B 
2140 NEXT A 
2150 FOR A=1 TO 500 
2160 NEXT A 
2170 SCREEN 1 
2180 COLOR 7,1,1 
2190 LOCATE 0,5 

2200 A$="GAME OVER"sGOSUB 2440 
2210 A*="TE ESTRELLASTE"sGOSUB 2440 
2220 LOCATE 0,12 

2230 A$= "PUNTOS :"+STR*(F') sGOSUB 2440 
2240 A*="OTRA PARTIDA (S/N)"sGOSUB 244 
2250 FOR A=1 TO 50 
2260 A$=INKEY* 

2270 NEXT A 

F'OKE S<HFCAB ,255 
2290 A$=INKEY$ 

2300 IF A$="S" THEN RUN 1320 
2310 IF A$="N" THEN SCREEN O:END 
2320 GOTO 2290 , 

2330 SF'RITE OFF 
2340 RETURN 2350 
2350 IFIY >3THEN2000 
2360 PUTSF'RITEO , (XB , 168) 

2370 BEEP 
2380 F'LAY 

2390 IF F'LAY (O) —-1 
2400 FOR A=1 TO 500 
2410 NEXT A 
2420 P—P+75 
2430 GOTO 1370 

2440 PRINTTAB(15-LEN(A$)/2);A# 

2450 F'RINT :PRINT 
2460 PRINT 


2460 

2470 RETURN 

DATA 3,F, 11 ,21 ,41,43,FF ,AB,AB ,FF,7F,F,19,31,61,F3,C0,F0,88 ,84 ,82 ,C2 ,FF ,D5 ,D 
5 ,FF ,FE ,F0,98,8C ,86 ,CF ,0 ,0 ,0,0,0,0,0 ,0 ,AB ,FF ,FF ,FF ,D5 ,D5 ,FF , FF',0,0,0 ,0,0,0 ,0,0 ,D 
5 ,FF,FF , FF , AB , AB ,FF , FF 

2490 DATA 2,20,0,82,30,1A ,D,27,IB,5F,3,IF ,85,25,0,8,20,1,0 ,88,10 , A4 ,D0,C8,F1 ,E0, 
44 ,E0 ,-50,4 A * * ' - " "* - * * •- ' - *- - - - - - - - — - 

22,8,0,0,90 


.r 


5 =: 


O ,22,0,8,0,A4,0,0, 


t 
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2500 RESTORE 2480 

2510 FORA=14336 TO 14463 

2520 READ BS 

[ 1 i i 
\ .f.t.t. 

.).;.1. 

* * j f : í ■ 

: n 

j 

iOk, 


2540 NEXT A 
2550 RETURN 
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NOVEDADES 


IAN KEY-COVER 




IAN KEY-COVER, ES EL PROTECTOR IDEAL PARA EL "TECLADO DE SU AMSTRAD 6128 ESPECIALMENTE DISEÑADO 

PARA REUNIR TODAS LAS CARACTERISTICAS ADECUADAS PARA ELLO: 

- PROTECCION FIRME DEL TECLADO DEL CPC 6128 (REALIZADO CON RESISTENTE METACRILATO DE UNA SOLA 
PIEZA CON NERVIOS LATERALES PARA FIJACION EN EL REBORDE DEL CONJUNTO DE SU ORDENADOR). 

- AJUSTE PERFECTO EN SU ORDEÑADOR CON SUAVE PRECISION Y COBERTURA TOTAL. 

- TRANSPARENTE (CONFIRIENDOLE LA PROPIEDAD DE VISUALIZAR EN TODO MOMENTO SU TECLADO). 

- PROTECCION CONTINUA CONTRA ELEMENTOS EXTERNOS (COMO: DERRAMES DE LIQUIDOS, GOLPES, ETC.) 
ADEMAS DE GOZAR DE LA SEGURIDAD DEL BUEN FUNCIONAMIENTO DE SU ORDENADOR AL REANUDAR SU 
DIARIO QUEHACER. UN POCO DE CAFE DERRAMADO SOBRE SU TECLADO ELEVARA ENORMEMENTE EL 
PRESUPUESTO ANUAL DE SU ORDENADOR. EVITE EL RIESGO, PROTEJASE. 

- RESGUARDO PERMANENTE CONTRA EL POLVO Y LA POLUCION (EL 60 % DE LAS AVERIAS DE SU TECLADO SON 
MOTIVADOS POR EL CONTACTO CONSTANTE DE ESTE CON EL POLVO Y LAS PARTICULAS ATMOSFERICAS, EL 
EXCESO DE HUMEDAD, ETC.). ELIMINE UN RIESGO CONTINUO, DOSIFIQUELO. 

- MANTENGALO LIMPIO SU AMSTRAD 6128, CUBRIENDOLO CON IAN KEY-COVER. 

- DELE AL TECLADO DE SU AMSTRAD 6128 ESA SENSACION DE PULCRITUD, SENTIDO DEL ORDEN Y APARIENCIA 
EXTERNA QUE SU AREA DE TRABAJO, ESTUDIO O ENSEÑANZA, REQUIERE. 
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Para Programadores MSX 
tu fiel compañero. 

Esto no es un libro para el 
principiante novato, al con¬ 
trario, introduce al progra¬ 
mador MSX "dentro'' del or¬ 
denador, para mostrarle exac¬ 
tamente como funciona y co¬ 
mo obtener el máximo partido. 

Los autores han dividido 
su libro en dos partes. 

La primera parte cubre el 
diseño del sistema, como el 
vocabulario de BASIC se rela¬ 
ciona con los ordenadores 
MSX, y una introducción có¬ 
digo máquina. Encontrará ex¬ 
plicaciones detalladas sobre la 
organización de la memoria, 
los modos de pantalla y los 
circuitos de vide y sonido. 

La segunda parte se dedica 
al uso del lenguaje ensam¬ 
blador en el sistema MSX. Los 
puntos: 

— El procesador de pantalla de vídeo. 

— El circuito de sonido AY-3-8910. 

— Entradas/Salidas. 

Tanto si necesitas escribir programas de alta eficacia o 
solamente quieres como trabaja tu ordenador, este libro será 
inestimable. Pensamos que rápidamente se convertirá en el 
texto base para aquellos programadores que quieren hacer 
algo más que escribir programas en BASIC. 

P.V.P. 1800 pts>. 



principales apartados incluyen los 


CODIGO MAQUINA 


PROGRAMACION 

PRACTICA 



La llegada de standar MSX, 
marca un paso significativo 
dentro del mundo de los or¬ 
denadores domésticos. Ofre¬ 
ce infinidad de excitantes 
oportunidades para progra¬ 
madores y usuarios. 

Este libro, supone que no 
tienes conocimientos previos 
sobre código máquina. Em- 
explicando las equivalentes 
en código máquina, de las 
principales instrucciones en 
Basic, tales como IF, FOR/ 

NEXT, PRINT, GOTO, GOSUB, 
etc... Continúa con la descrip¬ 
ción muy detallada de las ru¬ 
tinas individuales de un sim¬ 
ple juego: "INVASOR DEL 
ESPACIO", y cómo se enlazan 
estas rutinas que puedes 
aprovechar en tus programas 
en Basic. 

• Aprende lo fácil que es i 
máquina dentro de tus programas en Basic. 

® Usa el código máquina para crear sonido y gráficos. 

• Diseña tus propios caracteres y “escenarios” con dos 
programas fáciles de usar. 

Tanto si simplemente desea incluir rutinas para acelerar y 
mejorar tus programas en Basic, como si quieres un programa 
completo y potente en código máquina, encontrarás este 
libro extremadamente útil. En él está suprimida la teoría que 
dificulta el código máquina, y se presenta de una forma 
práctica y divertida de aprenderlo. 


P.V.P. 1.200 pts. 
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• La mayor variedad de libros de microinformática, 
capaces de satisfacer todas sus necesidades, ya sean 
profesionales, familiares, culturales... 

• Todo tipo de información bibliográfica sobre micro- 
ordenadores, desde AMSTRAD a SinclairQL 
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Ruego sírvanse remitirme CONTFtA REEMBOLSO los siguientes libros: 


Número 
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TITULO Y AUTOR 
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GRATUITAMENTE 


m deseo recibir a la mayor 
brevedad posible información 
\f sobre el Curso de:_ 


Para 

saber cómo 
hablar con los 
ordenadores 


Otros Cursos: 

- Introducción a 
ia Informática 

- Electrónica (con experimentos) 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
EDUCACION Y CIENCIA NA 8039185 

(BOLETIN OFICIAL DFL-ESTADO 3-6-83) 
Aragón, 472 (Dpto. REF. T-XZ 08013 Barcelona 
Tel : (93) 245 33 06 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


Nombre y apellidos 
Domicilio 


Edad 


Provincia 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
' . a programar BASIC, lenguaje diseñado 
' especialmiófe para- dar los primeros pasos 
en programación, estará sentando las bases 
para et estudio de cualquier otro 
lenguaje de alto ; nivel. 


Curso CEAC 

de BASIC+Microordenadores: 
”'fo ditálogo permanente 
con ei ordenador. 


Profesión 


CEAC. Aragón, 472 

(Dpto. ref, T-xz ) 08013 Barcelona 
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